/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / compile.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 0c 00 01 ff d2 00 00 | f0 16 20 62 00 00 00 40 |........|.. b...@|
|000000c0| 00 02 ff f2 00 00 f0 13 | 20 20 20 20 66 72 65 65 |........|    free|
|000000d0| 6c 79 20 66 72 6f 6d 20 | 73 65 64 67 65 77 69 63 |ly from |sedgewic|
|000000e0| 6b 20 41 4c 47 4f 52 49 | 54 48 4d 53 20 63 68 61 |k ALGORI|THMS cha|
|000000f0| 70 74 65 72 20 32 31 20 | 70 67 20 32 37 36 00 00 |pter 21 |pg 276..|
|00000100| 00 3a 00 03 ff be 00 00 | f0 64 20 30 2c 20 5f 63 |.:......|.d 0, _c|
|00000110| 61 73 65 49 6e 73 65 6e | 73 69 74 69 76 65 20 5f |aseInsen|sitive _|
|00000120| 73 74 72 52 65 73 6f 75 | 72 63 65 20 5f 6d 61 63 |strResou|rce _mac|
|00000130| 73 62 75 67 4c 61 62 65 | 6c 73 00 00 00 58 00 04 |sbugLabe|ls...X..|
|00000140| ff c4 00 00 f2 08 20 23 | 31 2c 20 22 63 6f 6d 70 |...... #|1, "comp|
|00000150| 69 6c 65 72 20 6f 66 20 | 61 72 69 74 68 6d 65 74 |iler of |arithmet|
|00000160| 69 63 20 65 78 70 72 65 | 73 73 69 6f 6e 73 20 28 |ic expre|ssions (|
|00000170| 43 52 20 74 6f 20 65 78 | 69 74 29 22 2c 28 34 2c |CR to ex|it)",(4,|
|00000180| 33 38 29 2d 28 36 34 30 | 2c 34 38 30 29 3a f0 28 |38)-(640|,480):.(|
|00000190| 20 31 30 30 00 00 00 08 | 00 05 ff a6 00 00 00 00 | 100....|........|
|000001a0| 00 54 00 06 ff f6 00 00 | f0 13 20 20 43 41 55 54 |.T......|..  CAUT|
|000001b0| 49 4f 4e 20 20 54 68 69 | 73 20 70 65 72 6d 69 74 |ION  Thi|s permit|
|000001c0| 73 20 6d 61 6e 79 20 6f | 70 65 72 61 74 69 6f 6e |s many o|peration|
|000001d0| 73 20 69 6e 63 6f 6d 70 | 61 74 69 62 6c 65 20 77 |s incomp|atible w|
|000001e0| 69 74 68 20 61 20 74 72 | 75 65 20 61 73 73 65 6d |ith a tr|ue assem|
|000001f0| 62 6c 65 72 00 00 00 54 | 00 07 ff aa 00 00 f0 13 |bler...T|........|
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 74 68 65 20 6f 6e 6c | 79 20 65 72 72 6f 72 73 | the onl|y errors|
|00000220| 20 61 72 65 20 75 6e 62 | 61 6c 61 6e 63 65 64 20 | are unb|alanced |
|00000230| 70 61 72 65 6e 73 2c 20 | 73 79 6e 74 61 78 20 61 |parens, |syntax a|
|00000240| 6e 64 20 6f 76 65 72 72 | 75 6e 00 00 00 08 00 08 |nd overr|un......|
|00000250| ff aa 00 00 00 00 00 1e | 00 09 ff f6 00 00 f0 3f |........|.......?|
|00000260| 20 5f 6d 6f 6e 61 63 6f | 2c 31 35 2c 5f 62 6f 6c | _monaco|,15,_bol|
|00000270| 64 42 69 74 25 00 00 32 | 00 0a ff e0 00 00 5f 4e |dBit%..2|......_N|
|00000280| 4f 50 45 52 20 3d 20 35 | 30 f0 5a 20 6e 75 6d 62 |OPER = 5|0.Z numb|
|00000290| 65 72 20 6f 66 20 6f 70 | 65 72 61 74 6f 72 73 20 |er of op|erators |
|000002a0| 69 6e 20 74 61 62 6c 65 | 00 00 00 2e 00 0b ff cc |in table|........|
|000002b0| 00 00 5f 53 54 53 49 5a | 20 3d 20 32 30 30 f0 5a |.._STSIZ| = 200.Z|
|000002c0| 20 73 69 7a 65 20 6f 66 | 20 72 65 63 75 72 73 69 | size of| recursi|
|000002d0| 6f 6e 20 73 74 61 63 6b | 00 00 00 36 00 0c ff d0 |on stack|...6....|
|000002e0| 00 00 5f 44 45 42 55 47 | 20 3d 20 30 f0 5a 20 64 |.._DEBUG| = 0.Z d|
|000002f0| 65 62 75 67 20 3d 20 31 | 20 20 66 6f 72 20 73 74 |ebug = 1|  for st|
|00000300| 6f 72 61 67 65 20 6c 6f | 63 61 74 69 6f 6e 73 20 |orage lo|cations |
|00000310| 00 00 00 60 00 0d ff c8 | 00 00 f0 0a 20 70 28 5f |...`....|.... p(_|
|00000320| 4e 4f 50 45 52 29 2c 6f | 70 65 72 24 28 5f 4e 4f |NOPER),o|per$(_NO|
|00000330| 50 45 52 29 2c 71 24 28 | 5f 4e 4f 50 45 52 29 2c |PER),q$(|_NOPER),|
|00000340| 6e 61 6d 24 28 5f 53 54 | 53 49 5a 29 2c 73 28 5f |nam$(_ST|SIZ),s(_|
|00000350| 53 54 53 49 5a 29 2c 72 | 70 2c 72 62 2c 72 63 2c |STSIZ),r|p,rb,rc,|
|00000360| 6c 70 2c 6c 62 2c 6c 63 | 3a 6e 74 6f 6b 65 6e 73 |lp,lb,lc|:ntokens|
|00000370| 3d 30 00 00 00 14 00 0e | ff 9e 00 00 f0 19 20 61 |=0......|...... a|
|00000380| 2d 7a 3a f0 28 20 31 32 | 30 00 00 0c 00 0f ff ea |-z:.( 12|0.......|
|00000390| 00 00 f0 1f 20 f0 66 00 | 00 08 00 10 ff f2 00 00 |.... .f.|........|
|000003a0| 00 00 00 2e 00 11 ff f6 | 00 04 f0 61 20 f2 02 20 |........|...a .. |
|000003b0| 70 72 32 28 61 24 29 3a | f0 01 20 6d 3d 31 20 f6 |pr2(a$):|.. m=1 .|
|000003c0| 04 20 f4 0f 28 61 24 29 | 3a 73 6d 3d 73 28 6d 29 |. ..(a$)|:sm=s(m)|
|000003d0| 00 00 00 32 00 12 ff d0 | 04 04 f0 0f 20 73 6d 3c |...2....|.... sm<|
|000003e0| 30 20 f6 05 20 6c 24 3d | 6e 61 6d 24 28 2d 73 28 |0 .. l$=|nam$(-s(|
|000003f0| 6d 29 29 20 3a f0 15 20 | 6c 24 3d 6f 70 65 72 24 |m)) :.. |l$=oper$|
|00000400| 28 73 6d 29 00 00 00 1c | 00 13 ff cc 00 00 f0 31 |(sm)....|.......1|
|00000410| 20 6c 24 3b 3a f0 07 20 | 6d 3a f0 31 3a f0 1f 20 | l$;:.. |m:.1:.. |
|00000420| f2 02 00 00 00 08 00 14 | ff e2 00 00 00 00 00 16 |........|........|
|00000430| 00 15 ff f6 00 02 f0 61 | 20 f2 02 20 72 65 61 64 |.......a| .. read|
|00000440| 6f 70 65 72 00 00 00 3a | 00 16 ff e8 02 04 f0 01 |oper...:|........|
|00000450| 20 6b 3d 31 20 f6 04 20 | 5f 4e 4f 50 45 52 3a f0 | k=1 .. |_NOPER:.|
|00000460| 0b 20 6f 70 65 72 24 28 | 6b 29 2c 71 24 28 6b 29 |. oper$(|k),q$(k)|
|00000470| 2c 70 28 6b 29 3a 6f 24 | 3d 6f 70 65 72 24 28 6b |,p(k):o$|=oper$(k|
|00000480| 29 00 00 2e 00 17 ff c4 | 04 04 f0 0f 20 6f 24 3d |).......|.... o$=|
|00000490| 22 28 22 20 f6 05 20 6c | 70 3d 6b 20 3a f0 15 20 |"(" .. l|p=k :.. |
|000004a0| f0 0f 20 6f 24 3d 22 29 | 22 20 f6 05 20 72 70 3d |.. o$=")|" .. rp=|
|000004b0| 6b 00 00 2e 00 18 ff d0 | 04 04 f0 0f 20 6f 24 3d |k.......|.... o$=|
|000004c0| 22 5b 22 20 f6 05 20 6c | 62 3d 6b 20 3a f0 15 20 |"[" .. l|b=k :.. |
|000004d0| f0 0f 20 6f 24 3d 22 5d | 22 20 f6 05 20 72 62 3d |.. o$="]|" .. rb=|
|000004e0| 6b 00 00 2e 00 19 ff d0 | 04 04 f0 0f 20 6f 24 3d |k.......|.... o$=|
|000004f0| 22 7b 22 20 f6 05 20 6c | 63 3d 6b 20 3a f0 15 20 |"{" .. l|c=k :.. |
|00000500| f0 0f 20 6f 24 3d 22 7d | 22 20 f6 05 20 72 63 3d |.. o$="}|" .. rc=|
|00000510| 6b 00 00 2a 00 1a ff d0 | 02 02 f0 0f 20 6f 70 65 |k..*....|.... ope|
|00000520| 72 24 28 6b 29 3c 3e 22 | 22 20 f6 05 20 f0 07 20 |r$(k)<>"|" .. .. |
|00000530| 6b 20 3a f0 15 20 4e 4f | 50 3d 6b 2d 31 00 00 12 |k :.. NO|P=k-1...|
|00000540| 00 1b ff d4 00 00 f0 1f | 20 f2 02 20 3d 20 4e 4f |........| .. = NO|
|00000550| 50 00 00 5a 00 1c ff ec | 00 00 f0 13 20 20 20 20 |P..Z....|....    |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 74 68 69 73 20 70 | 61 63 6b 73 20 6f 70 65 |  this p|acks ope|
|00000580| 72 61 74 6f 72 73 20 6e | 65 67 61 74 69 76 65 20 |rators n|egative |
|00000590| 61 6e 64 20 61 73 73 69 | 67 6e 73 20 73 74 6f 72 |and assi|gns stor|
|000005a0| 61 67 65 20 6c 6f 63 61 | 74 69 6f 6e 73 00 00 38 |age loca|tions..8|
|000005b0| 00 1d ff a4 00 02 f0 00 | 20 f2 02 20 70 61 63 6b |........| .. pack|
|000005c0| 28 61 24 2c 4e 4f 50 29 | 3a 6c 6e 3d 30 3a 6b 3d |(a$,NOP)|:ln=0:k=|
|000005d0| 30 3a 74 24 3d 22 22 3a | f0 0f 20 5f 44 45 42 55 |0:t$="":|.. _DEBU|
|000005e0| 47 20 f6 05 20 f0 31 00 | 00 18 00 1e ff c6 02 04 |G .. .1.|........|
|000005f0| f0 01 20 69 3d 31 20 f6 | 04 20 f4 0f 28 61 24 29 |.. i=1 .|. ..(a$)|
|00000600| 00 00 00 14 00 1f ff e6 | 04 06 f0 01 20 6a 3d 31 |........|.... j=1|
|00000610| 20 f6 04 20 4e 4f 50 00 | 00 2c 00 20 ff ea 06 08 | .. NOP.|.,. ....|
|00000620| f0 00 20 f0 0f 20 f4 32 | 28 61 24 2c 69 2c f4 0f |.. .. .2|(a$,i,..|
|00000630| 28 6f 70 65 72 24 28 6a | 29 29 29 3d 6f 70 65 72 |(oper$(j|)))=oper|
|00000640| 24 28 6a 29 00 00 00 14 | 00 21 ff d2 08 0a f0 00 |$(j)....|.!......|
|00000650| 20 f0 0f 20 74 24 3c 3e | 22 22 00 00 00 46 00 22 | .. t$<>|""...F."|
|00000660| ff ea 0a 0c 6b 3d 6b 2b | 31 3a f0 0f 20 6c 6e 3e |....k=k+|1:.. ln>|
|00000670| 3d 31 20 f6 05 20 f0 01 | 20 6d 3d 31 20 f6 04 20 |=1 .. ..| m=1 .. |
|00000680| 6c 6e 3a f0 0f 20 74 24 | 3d 6e 61 6d 24 28 6d 29 |ln:.. t$|=nam$(m)|
|00000690| 20 f6 05 20 73 28 6b 29 | 3d 2d 6d 3a f0 0d 20 22 | .. s(k)|=-m:.. "|
|000006a0| 4e 4f 22 00 00 28 00 23 | ff b8 0a 0a f0 07 20 6d |NO"..(.#|...... m|
|000006b0| 3a 6c 6e 3d 6c 6e 2b 31 | 3a 73 28 6b 29 3d 2d 6c |:ln=ln+1|:s(k)=-l|
|000006c0| 6e 3a 6e 61 6d 24 28 6c | 6e 29 3d 74 24 00 00 26 |n:nam$(l|n)=t$..&|
|000006d0| 00 24 ff d6 0a 0a 22 4e | 4f 22 f0 0f 20 5f 44 45 |.$...."N|O".. _DE|
|000006e0| 42 55 47 20 f6 05 20 f0 | 31 20 6c 6e 3b 22 3a 22 |BUG .. .|1 ln;":"|
|000006f0| 3b 74 24 3b 00 00 00 0c | 00 25 ff d8 08 08 f0 1f |;t$;....|.%......|
|00000700| 20 f0 0f 00 00 34 00 26 | ff f2 08 08 6b 3d 6b 2b | ....4.&|....k=k+|
|00000710| 31 3a 73 28 6b 29 3d 6a | 3a 69 3d 69 2b f4 0f 28 |1:s(k)=j|:i=i+..(|
|00000720| 6f 70 65 72 24 28 6a 29 | 29 2d 31 3a 74 24 3d 22 |oper$(j)|)-1:t$="|
|00000730| 22 3a f0 0d 20 22 4e 49 | 22 00 00 0c 00 27 ff ca |":.. "NI|"....'..|
|00000740| 06 06 f0 1f 20 f0 0f 00 | 00 22 00 28 ff f2 04 04 |.... ...|.".(....|
|00000750| f0 07 20 6a 3a 74 24 3d | 74 24 2b f4 25 28 f4 11 |.. j:t$=|t$+.%(..|
|00000760| 28 f4 32 28 61 24 2c 69 | 29 29 29 00 00 44 00 29 |(.2(a$,i|)))..D.)|
|00000770| ff dc 00 02 22 4e 49 22 | f0 07 20 69 3a f0 0f 20 |...."NI"|.. i:.. |
|00000780| 5f 44 45 42 55 47 20 f6 | 05 20 f0 31 20 3a f0 01 |_DEBUG .|. .1 :..|
|00000790| 20 69 3d 31 20 f6 04 20 | 6b 3a f0 31 20 69 3b 73 | i=1 .. |k:.1 i;s|
|000007a0| 28 69 29 3b 22 7c 22 3b | 3a f0 07 20 69 3a f0 31 |(i);"|";|:.. i:.1|
|000007b0| 00 00 00 1c 00 2a ff ba | 00 00 4e 74 6f 6b 65 6e |.....*..|..Ntoken|
|000007c0| 73 3d 6b 3a f0 1f 20 f2 | 02 20 3d 20 6c 6e 00 00 |s=k:.. .|. = ln..|
|000007d0| 00 08 00 2b ff e2 00 00 | 00 00 00 34 00 2c ff f6 |...+....|...4.,..|
|000007e0| 00 00 f0 0a 20 74 28 5f | 53 54 53 49 5a 29 3a 6f |.... t(_|STSIZ):o|
|000007f0| 70 65 72 24 28 30 29 3d | 22 5f 22 3a 4e 4f 50 3d |per$(0)=|"_":NOP=|
|00000800| f2 02 20 72 65 61 64 6f | 70 65 72 3a f0 31 00 00 |.. reado|per:.1..|
|00000810| 00 3e 00 2d ff ca 00 00 | 22 42 45 47 22 3a f2 01 |.>.-....|"BEG":..|
|00000820| 20 f0 09 3b 22 69 6e 70 | 75 74 20 61 72 69 74 68 | ..;"inp|ut arith|
|00000830| 20 73 74 6d 74 20 3f 3a | 22 3b 61 24 3a f0 31 3a | stmt ?:|";a$:.1:|
|00000840| f0 0f 20 61 24 3d 22 22 | 20 f6 05 20 f0 1f 00 00 |.. a$=""| .. ....|
|00000850| 00 3c 00 2e ff c0 00 00 | 61 24 3d 22 7b 22 2b 61 |.<......|a$="{"+a|
|00000860| 24 2b 22 7d 22 3a 4e 74 | 65 6d 70 73 3d f2 02 20 |$+"}":Nt|emps=.. |
|00000870| 70 61 63 6b 28 61 24 2c | 4e 4f 50 29 3a 6e 69 6e |pack(a$,|NOP):nin|
|00000880| 73 74 72 3d 30 3a 75 3d | 30 3a 72 3d 31 00 00 3e |str=0:u=|0:r=1..>|
|00000890| 00 2f ff c2 00 00 f0 13 | 20 20 20 20 20 20 20 20 |./......|        |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 20 |        |      a |
|000008b0| 62 6f 74 74 75 6d 20 75 | 70 20 73 68 69 66 74 2d |bottum u|p shift-|
|000008c0| 72 65 64 75 63 65 20 70 | 61 72 73 65 72 00 00 22 |reduce p|arser.."|
|000008d0| 00 30 ff c0 00 00 f0 11 | 20 22 73 68 69 66 74 22 |.0......| "shift"|
|000008e0| 3a 6c 66 3d 72 3a f0 11 | 20 22 73 68 69 66 74 22 |:lf=r:..| "shift"|
|000008f0| 00 00 00 46 00 31 ff dc | 00 04 f0 33 3a f0 37 20 |...F.1..|...3:.7 |
|00000900| 73 28 72 29 3d 6c 70 20 | f6 08 20 73 28 72 29 3d |s(r)=lp |.. s(r)=|
|00000910| 6c 62 20 f6 08 20 73 28 | 72 29 3d 6c 63 20 f6 08 |lb .. s(|r)=lc ..|
|00000920| 20 70 28 73 28 6c 66 29 | 29 3e 70 28 73 28 72 29 | p(s(lf)|)>p(s(r)|
|00000930| 29 20 f6 08 20 6c 66 3c | 31 00 00 28 00 32 ff b8 |) .. lf<|1..(.2..|
|00000940| 02 02 75 3d 75 2b 31 3a | 74 28 75 29 3d 6c 66 3a |..u=u+1:|t(u)=lf:|
|00000950| 6c 66 3d 72 3a f0 11 20 | 22 73 68 69 66 74 22 3a |lf=r:.. |"shift":|
|00000960| f0 38 00 00 00 3e 00 33 | ff d6 02 02 f0 0f 20 73 |.8...>.3|...... s|
|00000970| 28 6c 66 29 3d 6c 70 20 | f6 07 20 73 28 72 29 3c |(lf)=lp |.. s(r)<|
|00000980| 3e 72 70 20 f6 05 20 f0 | 31 20 22 75 6e 62 61 6c |>rp .. .|1 "unbal|
|00000990| 61 6e 63 65 64 20 28 29 | 73 22 3a f0 0d 20 22 42 |anced ()|s":.. "B|
|000009a0| 45 47 22 00 00 3e 00 34 | ff c0 02 02 f0 0f 20 73 |EG"..>.4|...... s|
|000009b0| 28 6c 66 29 3d 6c 63 20 | f6 07 20 73 28 72 29 3c |(lf)=lc |.. s(r)<|
|000009c0| 3e 72 63 20 f6 05 20 f0 | 31 20 22 75 6e 62 61 6c |>rc .. .|1 "unbal|
|000009d0| 61 6e 63 65 64 20 7b 7d | 73 22 3a f0 0d 20 22 42 |anced {}|s":.. "B|
|000009e0| 45 47 22 00 00 3e 00 35 | ff c0 02 02 f0 0f 20 73 |EG"..>.5|...... s|
|000009f0| 28 6c 66 29 3d 6c 62 20 | f6 07 20 73 28 72 29 3c |(lf)=lb |.. s(r)<|
|00000a00| 3e 72 62 20 f6 05 20 f0 | 31 20 22 75 6e 62 61 6c |>rb .. .|1 "unbal|
|00000a10| 61 6e 63 65 64 20 5b 5d | 73 22 3a f0 0d 20 22 42 |anced []|s":.. "B|
|00000a20| 45 47 22 00 00 42 00 36 | ff c0 02 02 72 72 3d 72 |EG"..B.6|....rr=r|
|00000a30| 3a f0 0f 20 73 28 6c 66 | 29 3d 6c 70 20 20 f6 08 |:.. s(lf|)=lp  ..|
|00000a40| 20 73 28 6c 66 29 3d 6c | 62 20 20 f6 08 20 73 28 | s(lf)=l|b  .. s(|
|00000a50| 6c 66 29 3d 6c 63 20 f6 | 05 20 73 28 72 29 3d 30 |lf)=lc .|. s(r)=0|
|00000a60| 3a 72 3d 72 2b 31 00 00 | 00 22 00 37 ff bc 02 02 |:r=r+1..|.".7....|
|00000a70| f0 11 20 22 70 72 69 6e | 74 69 74 22 3a 6c 66 3d |.. "prin|tit":lf=|
|00000a80| 74 28 75 29 3a 75 3d 75 | 2d 31 00 00 00 20 00 38 |t(u):u=u|-1... .8|
|00000a90| ff dc 00 00 f0 34 20 75 | 3c 30 20 f6 07 20 6f 70 |.....4 u|<0 .. op|
|00000aa0| 65 72 24 28 73 28 72 29 | 29 3d 22 7d 22 00 00 40 |er$(s(r)|)="}"..@|
|00000ab0| 00 39 ff de 00 00 f0 0f | 20 6c 66 3c 3e 30 20 f6 |.9......| lf<>0 .|
|00000ac0| 08 20 72 3c 3e 6e 74 6f | 6b 65 6e 73 20 f6 05 20 |. r<>nto|kens .. |
|00000ad0| f0 31 20 22 73 79 6e 74 | 61 78 20 65 72 72 6f 72 |.1 "synt|ax error|
|00000ae0| 20 22 3b 6c 66 3b 72 3b | 6e 74 6f 6b 65 6e 73 00 | ";lf;r;|ntokens.|
|00000af0| 00 10 00 3a ff be 00 00 | f0 0d 20 22 42 45 47 22 |...:....|.. "BEG"|
|00000b00| 00 00 00 40 00 3b ff ee | 00 00 f0 13 20 20 20 20 |...@.;..|....    |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b20| 20 20 20 20 20 20 20 73 | 68 69 66 74 20 6f 72 20 |       s|hift or |
|00000b30| 72 65 64 75 63 65 20 74 | 68 65 20 6f 70 65 72 61 |reduce t|he opera|
|00000b40| 74 6f 72 00 00 52 00 3c | ff be 00 00 22 73 68 69 |tor..R.<|...."shi|
|00000b50| 66 74 22 72 3d 72 2b 31 | 3a f0 0f 20 73 28 72 29 |ft"r=r+1|:.. s(r)|
|00000b60| 3c 30 20 f6 05 20 f0 0d | 20 22 73 68 69 66 74 22 |<0 .. ..| "shift"|
|00000b70| 20 3a f0 15 20 f0 0f 20 | 73 28 72 29 3d 30 20 f6 | :.. .. |s(r)=0 .|
|00000b80| 05 20 f0 31 20 22 6f 76 | 65 72 72 75 6e 22 3a f0 |. .1 "ov|errun":.|
|00000b90| 0d 20 22 42 45 47 22 00 | 00 0a 00 3d ff ac 00 00 |. "BEG".|...=....|
|00000ba0| f0 12 00 00 00 3c 00 3e | ff f4 fe 00 22 6c 65 66 |.....<.>|...."lef|
|00000bb0| 74 73 65 65 6b 22 6c 66 | 66 3d 6c 66 2d 31 3a f0 |tseek"lf|f=lf-1:.|
|00000bc0| 37 20 6c 66 66 3e 30 20 | f6 07 20 73 28 6c 66 66 |7 lff>0 |.. s(lff|
|00000bd0| 29 3d 3c 30 3a 6c 66 66 | 3d 6c 66 66 2d 31 3a f0 |)=<0:lff|=lff-1:.|
|00000be0| 38 00 00 0a 00 3f ff c2 | 00 00 f0 12 00 00 00 44 |8....?..|.......D|
|00000bf0| 00 40 ff f4 00 00 f0 13 | 20 20 20 20 20 20 20 20 |.@......|        |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c10| 20 20 20 20 70 72 69 6e | 74 73 20 6f 75 74 20 20 |    prin|ts out  |
|00000c20| 74 68 65 20 61 73 73 65 | 6d 62 6c 65 64 20 63 6f |the asse|mbled co|
|00000c30| 64 65 00 00 00 56 00 41 | ff ba 00 00 22 70 72 69 |de...V.A|...."pri|
|00000c40| 6e 74 69 74 22 6e 69 6e | 73 74 72 3d 6e 69 6e 73 |ntit"nin|str=nins|
|00000c50| 74 72 2b 31 3a f0 11 20 | 22 6c 65 66 74 73 65 65 |tr+1:.. |"leftsee|
|00000c60| 6b 22 3a f0 31 20 6e 69 | 6e 73 74 72 3b 71 24 28 |k":.1 ni|nstr;q$(|
|00000c70| 73 28 6c 66 29 29 3b f6 | 02 28 31 34 29 3b f0 5a |s(lf));.|.(14);.Z|
|00000c80| 66 6e 20 70 72 32 28 61 | 24 29 00 00 00 3e 00 42 |fn pr2(a|$)...>.B|
|00000c90| ff a8 00 02 f0 01 20 6d | 3d 6c 66 66 2b 31 20 f6 |...... m|=lff+1 .|
|00000ca0| 04 20 72 72 2d 31 3a 6c | 24 3d 22 22 3a 73 6d 3d |. rr-1:l|$="":sm=|
|00000cb0| 73 28 6d 29 3a f0 0f 20 | 6d 3d 6c 66 20 f6 05 20 |s(m):.. |m=lf .. |
|00000cc0| f0 31 20 f6 02 28 32 35 | 29 3b 00 00 00 3c 00 43 |.1 ..(25|);...<.C|
|00000cd0| ff c0 02 02 f0 0f 20 73 | 6d 3c 30 20 f6 05 20 6c |...... s|m<0 .. l|
|00000ce0| 24 3d 6e 61 6d 24 28 2d | 73 28 6d 29 29 20 3a f0 |$=nam$(-|s(m)) :.|
|00000cf0| 15 20 f0 0f 20 73 6d 3e | 30 20 f6 05 20 6c 24 3d |. .. sm>|0 .. l$=|
|00000d00| 6f 70 65 72 24 28 73 6d | 29 00 00 14 00 44 ff c2 |oper$(sm|)....D..|
|00000d10| 02 02 f0 31 20 6c 24 3b | 3a 73 28 6d 29 3d 30 00 |...1 l$;|:s(m)=0.|
|00000d20| 00 1c 00 45 ff ea 02 02 | f0 0f 20 6d 3d 6c 66 20 |...E....|.. m=lf |
|00000d30| f6 05 20 f0 31 20 f6 02 | 28 34 30 29 3b 00 00 4c |.. .1 ..|(40);..L|
|00000d40| 00 46 ff e2 00 00 f0 07 | 20 6d 3a f0 31 3a 4e 74 |.F......| m:.1:Nt|
|00000d50| 65 6d 70 73 3d 4e 74 65 | 6d 70 73 2b 31 3a 6e 61 |emps=Nte|mps+1:na|
|00000d60| 6d 24 28 4e 74 65 6d 70 | 73 29 3d 22 23 22 2b f4 |m$(Ntemp|s)="#"+.|
|00000d70| 2a 28 6e 69 6e 73 74 72 | 29 3a 73 28 6c 66 29 3d |*(ninstr|):s(lf)=|
|00000d80| 2d 4e 74 65 6d 70 73 3a | f0 12 00 00 00 08 00 47 |-Ntemps:|.......G|
|00000d90| ff b2 00 00 00 00 00 52 | 00 48 ff f6 00 00 f0 13 |.......R|.H......|
|00000da0| 20 20 20 20 20 20 20 20 | 20 74 68 69 73 20 69 73 |        | this is|
|00000db0| 20 74 68 65 20 6f 70 65 | 72 61 74 6f 72 20 70 72 | the ope|rator pr|
|00000dc0| 65 63 65 64 65 6e 63 65 | 20 74 61 62 6c 65 20 77 |ecedence| table w|
|00000dd0| 69 74 68 20 76 61 6c 75 | 65 73 20 61 6e 64 20 6e |ith valu|es and n|
|00000de0| 65 75 6d 6f 6e 69 63 73 | 00 00 00 5c 00 49 ff ac |eumonics|...\.I..|
|00000df0| 00 00 f0 08 20 20 22 7b | 22 2c 20 20 22 6e 6f 72 |....  "{|",  "nor|
|00000e00| 22 2c 31 30 30 2c 20 20 | 20 20 20 20 20 20 20 20 |",100,  |        |
|00000e10| 20 20 22 28 22 2c 20 20 | 22 63 61 6c 6c 22 2c 31 |  "(",  |"call",1|
|00000e20| 32 30 30 20 20 20 2c 20 | 20 20 20 20 20 20 20 20 |200   , |        |
|00000e30| 20 20 22 2e 22 2c 20 22 | 64 65 63 69 6d 61 6c 22 |  ".", "|decimal"|
|00000e40| 2c 20 20 20 32 30 30 00 | 00 5a 00 4a ff a2 00 00 |,   200.|.Z.J....|
|00000e50| f0 08 20 20 20 22 7c 22 | 2c 20 20 20 22 73 65 71 |..   "|"|,   "seq|
|00000e60| 75 65 6e 63 65 22 2c 20 | 34 30 30 2c 20 20 20 20 |uence", |400,    |
|00000e70| 20 20 20 20 22 5e 22 2c | 20 20 22 70 6f 77 65 72 |    "^",|  "power|
|00000e80| 22 2c 20 20 35 30 30 20 | 2c 20 20 20 20 20 20 20 |",  500 |,       |
|00000e90| 22 5f 22 2c 22 75 6e 64 | 65 72 73 63 6f 72 22 2c |"_","und|erscor",|
|00000ea0| 31 35 30 00 00 5c 00 4b | ff a4 00 00 f0 08 20 20 |150..\.K|......  |
|00000eb0| 22 2f 22 2c 20 20 22 64 | 69 76 69 64 65 22 2c 20 |"/",  "d|ivide", |
|00000ec0| 20 36 30 30 2c 20 20 20 | 20 20 20 20 20 20 22 2a | 600,   |      "*|
|00000ed0| 22 2c 20 20 20 22 6d 75 | 6c 74 69 70 6c 79 22 2c |",   "mu|ltiply",|
|00000ee0| 20 20 20 36 30 30 2c 20 | 20 20 20 20 22 2d 22 2c |   600, |    "-",|
|00000ef0| 22 73 75 62 74 72 61 63 | 74 22 2c 20 20 37 30 30 |"subtrac|t",  700|
|00000f00| 00 00 00 54 00 4c ff a2 | 00 00 f0 08 20 20 22 2b |...T.L..|....  "+|
|00000f10| 22 2c 20 20 22 61 64 64 | 22 2c 20 37 30 30 2c 20 |",  "add|", 700, |
|00000f20| 20 20 20 20 20 20 22 5b | 22 2c 20 20 22 69 6e 64 |      "[|",  "ind|
|00000f30| 65 78 22 2c 20 20 31 31 | 35 30 2c 20 20 20 20 20 |ex",  11|50,     |
|00000f40| 20 20 20 20 20 22 3a 22 | 2c 20 20 22 63 6f 6c 6f |     ":"|,  "colo|
|00000f50| 6e 22 2c 20 37 36 30 00 | 00 3c 00 00 ff aa 00 00 |n", 760.|.<......|
|00000f60| f0 08 20 20 20 22 3d 22 | 2c 20 20 20 22 20 65 71 |..   "="|,   " eq|
|00000f70| 75 61 6c 73 22 2c 20 20 | 20 38 30 30 2c 20 20 20 |uals",  | 800,   |
|00000f80| 20 20 20 20 22 3c 3e 22 | 2c 22 20 6e 65 22 2c 20 |    "<>"|," ne", |
|00000f90| 20 20 38 30 30 00 00 54 | 00 4e ff c2 00 00 f0 08 |  800..T|.N......|
|00000fa0| 20 20 22 3c 22 2c 20 20 | 20 22 20 6c 74 22 2c 20 |  "<",  | " lt", |
|00000fb0| 38 30 30 2c 20 20 20 20 | 20 20 20 20 20 20 20 22 |800,    |       "|
|00000fc0| 3c 3d 22 2c 20 20 22 20 | 6c 65 22 2c 20 20 20 38 |<=",  " |le",   8|
|00000fd0| 30 30 2c 20 20 20 20 20 | 20 22 3e 3d 22 2c 22 20 |00,     | ">="," |
|00000fe0| 67 65 22 2c 20 20 20 38 | 30 30 00 00 00 56 00 4f |ge",   8|00...V.O|
|00000ff0| ff aa 00 00 f0 08 20 20 | 22 3e 22 2c 20 20 20 22 |......  |">",   "|
|00001000| 20 67 74 22 2c 20 38 30 | 30 2c 20 20 20 20 20 20 | gt", 80|0,      |
|00001010| 20 20 20 20 20 20 22 3f | 22 2c 20 20 22 72 65 61 |      "?|",  "rea|
|00001020| 64 22 2c 20 20 31 32 30 | 30 2c 20 20 20 20 22 21 |d",  120|0,    "!|
|00001030| 22 2c 20 20 22 70 72 69 | 6e 74 22 2c 20 20 31 32 |",  "pri|nt",  12|
|00001040| 30 30 00 00 00 52 00 50 | ff a8 00 00 f0 08 20 20 |00...R.P|......  |
|00001050| 22 26 22 2c 20 22 20 61 | 6e 64 22 2c 20 31 31 30 |"&", " a|nd", 110|
|00001060| 30 2c 20 20 20 20 20 20 | 20 22 2c 22 2c 20 20 22 |0,      | ",",  "|
|00001070| 63 6f 6d 6d 61 22 2c 20 | 31 31 30 30 2c 20 20 20 |comma", |1100,   |
|00001080| 20 22 3b 22 2c 20 20 20 | 22 73 65 6e 74 65 6e 63 | ";",   |"sentenc|
|00001090| 65 22 2c 31 32 30 30 00 | 00 5a 00 51 ff ac 00 00 |e",1200.|.Z.Q....|
|000010a0| f0 08 20 22 29 22 2c 22 | 70 6f 70 22 2c 20 20 31 |.. ")","|pop",  1|
|000010b0| 32 30 30 20 20 2c 20 20 | 20 20 20 20 22 5d 22 2c |200  ,  |    "]",|
|000010c0| 22 65 6e 64 69 6e 64 65 | 78 22 2c 20 31 31 35 30 |"endinde|x", 1150|
|000010d0| 20 20 2c 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |  ,     |       "|
|000010e0| 7d 22 2c 20 20 22 62 72 | 61 63 65 73 22 2c 31 36 |}",  "br|aces",16|
|000010f0| 30 30 00 00 00 0e 00 52 | ff a4 00 00 f0 08 20 22 |00.....R|...... "|
|00001100| 22 2c 2c 00 00 08 00 53 | ff f0 00 00 00 00 00 08 |",,....S|........|
|00001110| 00 54 ff f6 00 00 00 00 | 00 08 00 55 ff f6 00 00 |.T......|...U....|
|00001120| 00 00 00 0a ff ff ff f6 | ff ae f0 12 00 00       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+